Public Class CEmployee
    Dim _intEmpID As Integer
    Dim _strSeqEmpID As String
    Dim _person As New CPerson
    Dim _dblBasicSal As String
    Dim _strEduQual As String
    Dim _dtDateofJoining As Date
    Dim _chrStatus As Char

    Public Property EmpID() As Integer
        Get
            Return _intEmpID
        End Get
        Set(ByVal value As Integer)
            _intEmpID = value
        End Set
    End Property
    Public Property EmployeeSeqID() As String
        Get
            Return _strSeqEmpID
        End Get
        Set(ByVal value As String)
            _strSeqEmpID = value
        End Set
    End Property
    Public Property person() As CPerson
        Get
            Return _person
        End Get
        Set(ByVal value As CPerson)
            _person = value
        End Set
    End Property


    Public Property qualification() As String
        Get
            Return _strEduQual
        End Get
        Set(ByVal value As String)
            _strEduQual = value
        End Set
    End Property

    Public Property BasicSal() As String
        Get
            Return _dblBasicSal
        End Get
        Set(ByVal value As String)
            _dblBasicSal = value
        End Set
    End Property

    Public Property DateOfJoining() As Date
        Get
            Return _dtDateofJoining
        End Get
        Set(ByVal value As Date)
            _dtDateofJoining = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
End Class
